home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / lpr / typeconv.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  958 b   |  37 lines
  1. DEFINITION MODULE TypeConvert;
  2.  
  3. (* This module offers replacements for the normal type convertion 
  4.    procedures that aren't acceptet by this Modula-2 system:
  5.    
  6.      CHAR(), BYTE(), CARDINAL(), INTEGER(), BITSET(), WORD(),
  7.      LONGCARD(), LONGINT(), REAL(), and ADDRESS().
  8.      
  9.    The Long versions don't give error measages until run time if a
  10.    varible of wrong size is attempted converted (ARRAY OF BYTE accepts
  11.    any type of any size) *)
  12.  
  13. FROM SYSTEM IMPORT WORD, BYTE, ADDRESS;
  14.  
  15.  
  16. PROCEDURE Char(x : BYTE) : CHAR;
  17.  
  18. PROCEDURE Byte(x : BYTE) : BYTE;
  19.  
  20. PROCEDURE Cardinal(x : WORD) : CARDINAL;
  21.  
  22. PROCEDURE Integer(x : WORD) : INTEGER;
  23.  
  24. PROCEDURE Bitset(x : WORD) : BITSET;
  25.  
  26. PROCEDURE Word(x : WORD) : WORD;
  27.  
  28. PROCEDURE LongCard(x : ARRAY OF BYTE) : LONGCARD;
  29.  
  30. PROCEDURE LongInt(x : ARRAY OF BYTE) : LONGINT;
  31.  
  32. PROCEDURE Real(x : ARRAY OF BYTE) : REAL;
  33.  
  34. PROCEDURE Address(x : ARRAY OF BYTE) : ADDRESS;
  35.  
  36. END TypeConvert.
  37.